home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 7: Sunsite / Linux Cubed Series 7 - Sunsite Vol 1.iso / system / network / info-sys / www / tkhtml-2.3 / tkhtml-2 / tkHTML-2.3 / help.tcl < prev    next >
Encoding:
Text File  |  1995-02-26  |  20.3 KB  |  589 lines
  1. ##################
  2. # Help dialogs
  3.  
  4. proc DoHelp {type} {
  5.  
  6. ####################3
  7. # help window
  8. # ok let's create the dialog for HELP
  9.  
  10. ####### 
  11. # global variables
  12.  
  13.     global w
  14.     global helpprev
  15.     global helpnext
  16.     global xpos
  17.     global ypos
  18.  
  19. #######
  20. # next and previous help pages
  21.     set helpprev "HelpMain"
  22.     set helpnext "HelpFormatting"
  23.     set w ".help.mf.vs.text"
  24. #######
  25. # Configure and create the actual dialog
  26.  
  27.     ClearEvent "Calling help"
  28.  
  29.     toplevel .help
  30.     GetXY
  31.     set tmpx [expr $xpos+350]
  32.     set tmpy [expr $ypos+60]
  33.  
  34.     wm geometry .help +$tmpx+$tmpy
  35.  
  36.     wm title .help "tkHTML Help"
  37.  
  38.     frame .help.mf -relief raised -borderwidth 2 
  39.  
  40.     pack .help.mf -fill both -expand true
  41.  
  42.     frame .help.mf.vs -relief flat -borderwidth 2 
  43.  
  44.     frame .help.mf.bb -relief flat -borderwidth 2 
  45.  
  46.     pack .help.mf.vs -side top -fill both -expand true
  47.     pack .help.mf.bb -side bottom -fill both -expand true
  48.  
  49.     button .help.mf.bb.quit -text "Quit Help" \
  50.         -command "
  51.     if {\"\[info commands XFDestroy\]\" != \"\"} {
  52.         catch {XFDestroy .help}
  53.     } else {
  54.         catch {destroy .help}
  55.     }"
  56.     button .help.mf.bb.main -text "Main Menu" \
  57.         -command HelpMain
  58.     button .help.mf.bb.next -text "Next Document" \
  59.         -command $helpnext
  60.     button .help.mf.bb.previous -text "Previous Document" \
  61.         -command $helpprev
  62.  
  63.     pack .help.mf.bb.quit .help.mf.bb.main .help.mf.bb.next \
  64.     .help.mf.bb.previous -side left -fill both -expand true -padx 2 -pady 2
  65.  
  66.     scrollbar .help.mf.vs.scroll -relief sunken \
  67.         -command {.help.mf.vs.text yview} 
  68.     pack .help.mf.vs.scroll -side left -fill both -expand true
  69.  
  70.     text .help.mf.vs.text -relief sunken -borderwidth 1 \
  71.         -background #bfbfbfbfbfbf \
  72.         -yscrollcommand {.help.mf.vs.scroll set} \
  73.         -wrap word -width 50 -height 18
  74.     pack .help.mf.vs.text -side right -padx 5
  75.  
  76.     ConfigFonts $w
  77.  
  78.     $w tag bind h1 <1> HelpFormatting
  79.     $w tag bind h2 <1> HelpCutting
  80.     $w tag bind h3 <1> HelpHyper
  81.     $w tag bind h4 <1> HelpInline
  82.     $w tag bind h6 <1> HelpEntities
  83.     $w tag bind h5 <1> HelpShort
  84.     $w tag bind hh <1> HelpPrimer
  85.     $w tag bind hp <1> HelpPreview
  86.  
  87. #######
  88. # when called, we go to the procedure for the selected help function
  89.  
  90.     $type
  91. }
  92.  
  93. proc ConfigFonts {w} {
  94. #######
  95. #now, lets define colors and fonts
  96.     $w tag configure 100L -font -b&h-lucida-medium-r-*-*-12-*-*-*-*-*-*-*
  97.     $w tag configure 140H -font -adobe-helvetica-bold-r-normal-*-14-*-*-*-*-*-*-*
  98.     $w tag configure 180H -font -adobe-helvetica-bold-r-normal-*-18-*-*-*-*-*-*-*
  99.     $w tag configure 180L -font -b&h-lucida-bold-r-normal-*-18-*-*-*-*-*-*-*
  100.     $w tag configure 240H -font -adobe-helvetica-bold-r-normal-*-24-*-*-*-*-*-*-*
  101.     $w tag configure normal -font -adobe-helvetica-medium-r-*-*-12-*-*-*-*-*-*-*
  102.     $w tag configure normalb -font -adobe-helvetica-bold-r-*-*-12-*-*-*-*-*-*-*
  103.     $w tag configure normali -font -adobe-helvetica-medium-o-normal-*-14-*-*-*-*-*-*-*
  104.     $w tag configure code -font -adobe-courier-medium-r-normal-*-12-*-*-*-*-*-*-*
  105.  
  106. #######
  107. # these are the hyperlink configurations
  108.  
  109.     $w tag configure blue -foreground blue
  110.     $w tag configure red -foreground red
  111.  
  112. }
  113.  
  114. # Procedure: HelpCutting
  115. proc HelpCutting {} {
  116. ###################
  117. # Cut and PAste Hyperhelp
  118.  
  119. # global variables
  120. global w
  121. global helpnext
  122. global helpprev
  123.  
  124. # set previous/next documents
  125.  
  126. set helpnext HelpHyper
  127. set helpprev HelpFormatting
  128.  
  129. .help.mf.bb.next config -command $helpnext
  130. .help.mf.bb.previous config -command $helpprev
  131.  
  132. # enable and clear help window
  133. $w config -state normal
  134. $w mark set insert 0.0
  135. $w delete insert end
  136.  
  137. wm title .help "tkHTML Help Browser - Cutting and Pasting"
  138.  
  139. insertWithTags $w "CUTTING AND PASTING TEXT\n\n" 180H
  140. insertWithTags $w "Cut and paste works like contemporary text editors. Highlight the text you would like to cut or copy,  select the '" nnor" normal
  141. insertWithTags $w "Edit" normali
  142. insertWithTags $w "' menu option, followed by '" normal
  143. insertWithTags $w "cut" normali
  144. insertWithTags $w "' or '" normal
  145. insertWithTags $w "copy" normali
  146. insertWithTags $w "'. To paste the text, locate the cursor where you would like to  paste the text, then select '" normal
  147. insertWithTags $w "Edit" normali
  148. insertWithTags $w "' followed by '" normalb
  149. insertWithTags $w "paste" normali
  150. insertWithTags $w "'. \n\nYou can also use the short-cut keys:\n\n To " normal
  151. insertWithTags $w "COPY" normalb
  152. insertWithTags $w " the selection to the buffer:    Control-c\n
  153. To " normal
  154. insertWithTags $w "CUT" normalb 
  155. insertWithTags $w " the selection to the buffer:    Control-x\n
  156. To " normal
  157. insertWithTags $w "PASTE" normalb
  158. insertWithTags $w " the selection to the text:     Control-v\n" normal
  159.  
  160. # disable editing
  161. $w config -state disabled
  162. }
  163.  
  164.  
  165. # Procedure: HelpFormatting
  166. proc HelpFormatting {} {
  167. ####################
  168. # Formatting Hyperhelp
  169.  
  170. # global variables
  171. global w
  172. global helpnext
  173. global helpprev
  174.  
  175. # set previous/next documents
  176.  
  177. set helpnext HelpCutting
  178. set helpprev HelpMain
  179. .help.mf.bb.next config -command $helpnext
  180. .help.mf.bb.previous config -command $helpprev
  181. # enable and clear help window
  182.  
  183. $w config -state normal
  184. $w mark set insert 0.0
  185. $w delete insert end
  186.  
  187. wm title .help "tkHTML Help Browser - Formatting Text"
  188.  
  189. insertWithTags $w "FORMATTING TEXT\n\n" 180H
  190. insertWithTags $w "To format text with html-functions, such as emphasis, headlines or list blocks, there are two methods of inserting them in the document: using the pull-down menus or short-cut keys.\n\n" normal
  191. insertWithTags $w "Pull-down Menus\n" 140H 
  192. insertWithTags $w "Select the text you would like to format with the mouse, then select the menu option, either '" normal
  193. insertWithTags $w "Font" normali 
  194. insertWithTags $w "'  or '" normal
  195. insertWithTags $w "Function" normali
  196. insertWithTags $w "', that has the format option you want, then select it. The text will automatically be placed between the formatting devices for that style.\n\n" normal
  197. insertWithTags $w "Short-cut Keys\n\n" h5 blue 140H 
  198. insertWithTags $w "This is the fastest and easiest method to use. There are two modes of operation: highlighting with the mouse or 'on the fly' formatting. On the fly simply implies that there is no mouse use involved, just straight typing. As you are typ
  199. ing, you may insert a new format by typing the corresponding " normal
  200. insertWithTags $w "short-cut key" h5 normal blue 
  201. insertWithTags $w ". The cursor will be placed between the starting and closing marks of that type of format automatically. You may also highlight a region of text with the mouse and apply the short-cut key sequence and have that region formatted in that 
  202. style." normal
  203.  
  204. # disable editting
  205. $w config -state disabled
  206. }
  207.  
  208. # Procedure: HelpHyper
  209. proc HelpHyper {} {
  210. #########################
  211. # Hyperlink Hyperhelp
  212.  
  213. # global variables
  214. global w
  215. global helpnext
  216. global helpprev
  217.  
  218. # set previous/next documents
  219. set helpnext HelpInline
  220. set helpprev HelpCutting
  221. .help.mf.bb.next config -command $helpnext
  222. .help.mf.bb.previous config -command $helpprev
  223.  
  224. # enable and clear help window
  225. $w config -state normal
  226. $w mark set insert 0.0
  227. $w delete insert end
  228.  
  229. wm title .help "tkHTML Help Browser - Hyperlinking"
  230.  
  231. insertWithTags $w "HYPERLINKING DOCUMENTS\n\n" 180H
  232. insertWithTags $w "Select the text you would like to be the 'anchor' of the link (the words that will be underlined in the  document as the link). Select the '" normal
  233. insertWithTags $w "Anchors" normali
  234. insertWithTags $w "' menu option, followed by '" normal
  235. insertWithTags $w "Hyper link" normali
  236. insertWithTags $w "'. You will be promtped for the URL of the link which is the document or item that you are creating  a link to. If you do not highlight any words before selecting '" normal
  237. insertWithTags $w "Hyper link" normali 
  238. insertWithTags $w "', your cursor will be placed between the anchor functions for inserting a hyperlink manually.\n\nYou may also use the short-cut key " normal
  239. insertWithTags $w "Alt-H" normalb
  240. insertWithTags $w ", which works the same way as selecting '" normal
  241. insertWithTags $w "Anchor | Hyper link" normali
  242. insertWithTags $w "' on the menubar. See " normal
  243. insertWithTags $w "Formatting Text" h1 blue normalb
  244. insertWithTags $w " or " normal
  245. insertWithTags $w "Short-cut Keys" h5 blue normalb
  246. insertWithTags $w " for more information." normal
  247.  
  248. # disable editting
  249. $w config -state disabled
  250. }
  251.  
  252.  
  253. # Procedure: HelpInline
  254. proc HelpInline {} {
  255. ###########################
  256. # Inline Image hyperhelp
  257. # global variables
  258. global w
  259. global helpnext
  260. global helpprev
  261.  
  262. # set previous/next documents
  263. set helpnext HelpShort
  264. set helpprev HelpEntities
  265. .help.mf.bb.next config -command $helpnext
  266. .help.mf.bb.previous config -command $helpprev
  267.  
  268. # enable and clear help window
  269. $w config -state normal
  270. $w mark set insert 0.0
  271. $w delete insert end
  272.  
  273. wm title .help "tkHTML Help Browser - Inline Images"
  274. insertWithTags $w "Inline Images\n\n" 180H
  275. insertWithTags $w "To insert an inline image, select the '" normal
  276. insertWithTags $w "Anchor" normali
  277. insertWithTags $w "' menu option, followed by the '" normal
  278. insertWithTags $w "Inline Image" normali
  279. insertWithTags $w "' option.The cursor will be placed between the " normal
  280. insertWithTags $w "<IMG SRC=\"" code
  281. insertWithTags $w " and " normal
  282. insertWithTags $w "\">" code
  283. insertWithTags $w " marks automatically, where you can type in the filename or URL of the image. IF a region of  text has been highlighted before you select '" normal
  284. insertWithTags $w "Anchor | Inline image" normali
  285. insertWithTags $w "', this will be assumed to be the filename/URL of the image  you are inlining, and be placed into the \n" normal
  286. insertWithTags $w "<IMG SRC=\" \">" code
  287. insertWithTags $w " anchor automatically.\n\n" normal
  288. insertWithTags $w "You may also use the shortcut key, " normal
  289. insertWithTags $w "Alt-I" normalb
  290. insertWithTags $w ", to do the same operation as indicated above." normal
  291.  
  292.  
  293. # disable editting
  294. $w config -state disabled
  295. }
  296. # Procedure: HelpEntities
  297. proc HelpEntities {} {
  298. ###########################
  299. # Inline Image hyperhelp
  300. # global variables
  301. global w
  302. global helpnext
  303. global helpprev
  304.  
  305. # set previous/next documents
  306. set helpnext HelpInline
  307. set helpprev HelpShort
  308. .help.mf.bb.next config -command $helpnext
  309. .help.mf.bb.previous config -command $helpprev
  310.  
  311. # enable and clear help window
  312. $w config -state normal
  313. $w mark set insert 0.0
  314. $w delete insert end
  315.  
  316. wm title .help "tkHTML Help Browser - Entities"
  317. insertWithTags $w "Entities\n\n" 180H
  318. insertWithTags $w "To include special characters like accented characters in an HTML-document, the correct way is to use " normal
  319. insertWithTags $w "entities" normalb
  320. insertWithTags $w ". To get an \"Umlaut a (\344)\", for example, you have to include the entity " normal
  321. insertWithTags $w "\"ä\"" code
  322. insertWithTags $w "Typing this by hand is both tedious and boring, so tkHTML has three ways of avoiding this:\n\n" normal
  323. insertWithTags $w "Selecting from menu\n\n" 140H
  324. insertWithTags $w "The menu \"" normal
  325. insertWithTags $w "Entities" code
  326. insertWithTags $w "\" has a list of all the entities known by tkHTML. Selecting them places that entity in the text.\n\n" normal
  327. insertWithTags $w "Typing on special keyboards\n\n" 140H
  328. insertWithTags $w "In countries with languages using such characters, you often have keyboards with these accented characters on them. Typing an umlaut \"a\" will include the entity \"" normal
  329. insertWithTags $w "ä" code
  330. insertWithTags $w "\" in the text if the checkbutton \"" normal
  331. insertWithTags $w "insert entities for special (iso) characters\"" code
  332. insertWithTags $w " is on. If you don't have such a keyboard, you may define some unused keys to enter special characters using the command \"" normal
  333. insertWithTags $w "xmodmap -e ..." code
  334. insertWithTags $w "\".\n\n" normal 
  335. insertWithTags $w "Using escape sequences\n\n" 140H
  336. insertWithTags $w "In the German version of " normal
  337. insertWithTags $w "LaTeX" code
  338. insertWithTags $w " you may type \"a (quotation mark follow by \"a\") to get an umlaut \"a\" in the formatted text. Alsso typing \'e (single quote follows by \"e\") on some keyboards will send an \"e acute (\351)\". If the " normal
  339. insertWithTags $w "insert entities for escaped characxters" code
  340. insertWithTags $w " checkbutton is enabled, tkHTML will replace these sequences with their entities.\n\n" normal
  341. insertWithTags $w "Special entities, undefined escape sequences\n\n" 140H
  342. insertWithTags $w "Some special things are actually defined in the following manner: Typing > will output a real >, typing \"> will output it's entity " normal
  343. insertWithTags $w ">" code
  344. insertWithTags $w " (same for < and &). Typing \"\" will output the entity " normal
  345. insertWithTags $w """ code
  346. insertWithTags $w ". Typing \"<space> will output the normal \", as with '<pace> and `<space>. Typing two different escape characters will delete the first one. Typing undefined escape sequences will output the escape character and the following character
  347.  (\"m -> \"m ...). Typing an escape character followed by a special character will result in a lonely special character (\"\344 -> \344)\n\n" normal
  348. insertWithTags $w "Defining entities\n\n" 140H
  349. insertWithTags $w "The list may be incomplete for your personal preferences, so you may define your own entities in your config.tcl or ~/.tkhtmlrc. See entities.tcl and the README.entities file for more information." normal
  350.  
  351. # disable editting
  352. $w config -state disabled
  353. }
  354.  
  355. # Procedure: HelpMain
  356. proc HelpMain {} {
  357. ############################
  358. # Main help index
  359.  
  360. # global variables
  361. global w
  362. global helpprev
  363. global helpnext
  364.  
  365. # enable and clear help window
  366. $w config -state normal
  367. $w mark set insert 0.0
  368. $w delete insert end
  369.  
  370. # set previous/next documents
  371. set helpnext HelpFormatting
  372. set helpprev HelpMain
  373. .help.mf.bb.next config -command $helpnext
  374. .help.mf.bb.previous config -command $helpprev
  375.  
  376. wm title .help "tkHTML Help Browser - Main Index"
  377.  
  378. insertWithTags $w "HELP MAIN MENU - tkHTML\n\n" 180H
  379. insertWithTags $w "tkHTML is a simple html editor with many commands to simplify editing and converting html documents." normal
  380. insertWithTags $w "Most html functions are available by using the pull-dowm menus, and most essential text formatting" normal
  381. insertWithTags $w "commands are available with shortcut keys.\n\n" normal
  382. insertWithTags $w "\nFor more help, click on one of the following topics:\n\n" 140H
  383.  
  384. insertWithTags $w "Formatting" h1 140H blue
  385. insertWithTags $w " - using html functions\n\n" 140H
  386. insertWithTags $w "Cutting and Pasting" h2 140H blue
  387. insertWithTags $w " - manipulating text\n\n" 140H
  388. insertWithTags $w "Inserting Hyperlinks" h3 blue 140H
  389. insertWithTags $w " - linking to other documents\n\n" 140H 
  390. insertWithTags $w "Inline Images" h4 140H blue
  391. insertWithTags $w " - adding pictures and icons\n\n" 140H 
  392. insertWithTags $w "Entities" h6 140H blue
  393. insertWithTags $w " - interting special characters\n\n" 140H
  394. insertWithTags $w "Short-cut Keys" h5 140H blue
  395. insertWithTags $w " - on the fly editing\n\n" 140H
  396. insertWithTags $w "WYSIWYG Previewing" hp 140H blue
  397. insertWithTags $w " - seeing as you work\n\n" 140H
  398.  
  399. insertWithTags $w "HTML primer" blue 140H hh
  400. insertWithTags $w "- A quick study on html\n" 140H
  401.  
  402. # disable editting
  403. $w config -state disabled
  404. }
  405.  
  406. # Procedure: HelpPreview
  407. proc HelpPreview {} {
  408. ####################
  409. # Previewer hyper document
  410.  
  411. # global produres
  412. global w
  413. global helpnext
  414. global helpprev
  415. global version
  416.  
  417. # previous/next documents
  418. set helpnext HelpMain
  419. set helpprev HelpMain
  420.  
  421. .help.mf.bb.next config -command $helpnext
  422. .help.mf.bb.previous config -command $helpprev
  423.  
  424. # enable update of help window
  425. $w config -state normal
  426.  
  427. # clear current document
  428. $w mark set insert 0.0
  429. $w delete insert end
  430.  
  431. wm title .help "tkHTML HELP Browser - Previewer"
  432.  
  433. insertWithTags $w "WYSIWYG PREVIEWER\n\n" 180H
  434. insertWithTags $w "tkHTML $version has been equipped with a simple WYSIWYG (what you see is what you get) previewer to help  you design your pages. The previewer only works after you have saved the file. To start the previewer, either select the " normal
  435. insertWithTags $w "Preview" normali
  436. insertWithTags $w "' menu option folllowed by '" normal
  437. insertWithTags $w "Activate Previewer" normali
  438. insertWithTags $w "' or use the shortcut key, " normal
  439. insertWithTags $w "Ctrl-p" normalb
  440. insertWithTags $w ".\n\nYou will be presented with the previewer window, which may stay open as long as you work on your document. To  update the display, save your document first (" normal
  441. insertWithTags $w "Ctrl-S" normalb
  442. insertWithTags $w ") then select the " normal
  443. insertWithTags $w "Reload" code
  444. insertWithTags $w "button." normal
  445.  
  446. # disable editing of help window
  447. $w config -state disabled
  448. }
  449.  
  450. # Procedure: HelpPrimer
  451. proc HelpPrimer {} {
  452. ####################3
  453. # HTML PRimer hyper document
  454.  
  455. # global produres
  456. global w
  457. global helpnext
  458. global helpprev
  459.  
  460. # previous/next documents
  461. set helpnext HelpMain
  462. set helpprev HelpMain
  463. .help.mf.bb.next config -command $helpnext
  464. .help.mf.bb.previous config -command $helpprev
  465.  
  466. # enable update of help window
  467. $w config -state normal
  468.  
  469. # clear current document
  470. $w mark set insert 0.0
  471. $w delete insert end
  472.  
  473. wm title .help "tkHTML HELP Browser - HTML Primer"
  474.  
  475. insertWithTags $w "HTML PRIMER\n\n" 180H
  476. insertWithTags $w "To be added - Liem\n" normalb
  477.  
  478. # disable editing of help window
  479. $w config -state disabled
  480. }
  481.  
  482.  
  483. # Procedure: HelpShort
  484. proc HelpShort {} {
  485. #########################3
  486. # Shortcut keys hyperhelp
  487.  
  488. # global veriables
  489. global w
  490. global helpnext
  491. global helpprev
  492.  
  493. # set previuos/next document
  494. set helpnext HelpMain
  495. set helpprev HelpEntities
  496. .help.mf.bb.next config -command $helpnext
  497. .help.mf.bb.previous config -command $helpprev
  498.  
  499. # enable and clear help window
  500. $w config -state normal
  501. $w mark set insert 0.0
  502. $w delete insert end
  503.  
  504. wm title .help "tkHTML Help Browser - Shortcut Keys"
  505.  
  506. insertWithTags $w "SHORT-CUT KEYS\n\n" 180H
  507. insertWithTags $w "Short-cut keys allow you to format the document without using the mouse. Almost all major formatting  functions are available in short form.\n\nThe format of the short cut keys is as follows: \n\n" normal
  508. insertWithTags $w "Alt  = Alternate (Meta1)\nCtrl = Control (right or left)\n\n" normalb
  509. insertWithTags $w "File Options\n" 140H red
  510. insertWithTags $w "Save            Ctrl-s\n" normalb 
  511. insertWithTags $w "Quit            Ctrl-q\n\n" normalb
  512.  
  513. insertWithTags $w "Directional Movement\n" 140H red
  514. insertWithTags $w "Arrow Keys\n" normalb
  515. insertWithTags $w "Left            Ctrl-b\n" normalb
  516. insertWithTags $w "Right            Ctrl-f\n" normalb
  517. insertWithTags $w "Up            Ctrl-p\n" normalb
  518. insertWithTags $w "Down            Ctrl-n\n" normalb
  519. insertWithTags $w "Start of line        Ctrl-e\n" normalb
  520. insertWithTags $w "End of line        Ctrl-a\n" normalb
  521. insertWithTags $w "Page up            Ctrl-y\n" normalb
  522. insertWithTags $w "Page down        Ctrl-v\n\n" normalb
  523.  
  524. insertWithTags $w "Text Formatting\n" 140H red
  525. insertWithTags $w "Centering        Alt-C (netscape mode)\n" normalb
  526. insertWithTags $w "Logical Styles:\n" normalb
  527. insertWithTags $w "Emphasis        Alt-e\n" normalb
  528. insertWithTags $w "Strong Emphasis        Alt-s\n" normalb
  529. insertWithTags $w "Code            Alt-c\n" normalb
  530. insertWithTags $w "Address             Alt-a\n\n" normalb
  531.  
  532. insertWithTags $w "Physical Styles: \n" normalb
  533. insertWithTags $w "Bold            Alt-b\n" normalb
  534. insertWithTags $w "Underline        Alt-b\n" normalb
  535. insertWithTags $w "Italic            Alt-i\n" normalb
  536. insertWithTags $w "Headline            Alt-x (x = 1-6)\n" normalb
  537. insertWithTags $w "Preformatted text        Alt-P\n\n" normalb
  538.  
  539. insertWithTags $w "Anchors\n" red 140H
  540. insertWithTags $w "Hyperlink        Alt-H\n" normalb
  541. insertWithTags $w "Inline Image        Alt-I\n\n" normalb
  542.  
  543. insertWithTags $w "Entities\n" 140H red
  544. insertWithTags $w "Greater than (>)        Alt->\n" normalb
  545. insertWithTags $w "Less than (<)        Alt-<\n" normalb
  546. insertWithTags $w "Ampersand (&)        Alt-&\n" normalb
  547. insertWithTags $w "Quote (\")        Alt-\"\n" normalb
  548. insertWithTags $w "Non-breaking space    Alt-space\n" normalb
  549. insertWithTags $w "Additional Entities info\n\n" h6 blue normalb
  550.  
  551. insertWithTags $w "Other\n" 140H red
  552. insertWithTags $w "Title            Alt-t\n" normalb
  553. insertWithTags $w "Horizontal Line        Alt-h\n" normalb
  554. insertWithTags $w "List Item            Alt-l\n" normalb
  555. insertWithTags $w "Paragraph        Alt-return\n" normalb
  556. insertWithTags $w "Newline            Alt-b\n" normalb
  557. insertWithTags $w "Comment        Alt-C\n\n" normalb
  558.  
  559. insertWithTags $w "Selection Options\n" red 140H
  560. insertWithTags $w "highlight left        Shift-Left Arrow\n" normalb
  561. insertWithTags $w "highlight right        Shift-Right Arrow\n" normalb
  562. insertWithTags $w "Cut            Ctrl-X\n" normalb
  563. insertWithTags $w "Paste            Ctrl-Y\n" normalb
  564. insertWithTags $w "Copy            Ctrl-C\n" normalb
  565. insertWithTags $w "Find            Ctrl-S\n" normalb
  566. insertWithTags $w "Find again        Ctrl-F\n" normalb 
  567. insertWithTags $w "Delete line        Ctrl-k\n" normalb
  568. insertWithTags $w "Delete prev word        Shift-delete\n\n" normalb
  569. # disable editting
  570. $w config -state disabled
  571. }
  572.  
  573.  
  574. proc GetXY {} {
  575. ################
  576. # get the current X and Y coords of toplevel
  577.  
  578. global xpos
  579. global ypos
  580.  
  581.     set position [wm geometry .]
  582.     set position2 [split $position +]
  583.     set xpos [lindex $position2 1]
  584.     set ypos [lindex $position2 2]
  585. }
  586.  
  587.  
  588.  
  589.